home *** CD-ROM | disk | FTP | other *** search
MS Visual FoxPro App | 1993-08-27 | 10.3 KB | 217 lines |
- [\<1] - 80 Column Lunar Object Report
- [\<2] - 132 Column Lunar Object Report
- [\<3] - Word for Windows (Lunar Object Data File)
- [\<4] - 80 Column Lunar Object Log Report
- [\<Q] - Quit to report menu
- DEACTIVATE POPUP
- SACPR4
- Print
- cPRNf
- WINDOW
- NFORM_SCR
- DDATE_1
- DDATE_2
- EXCNOTES
- DEXNINDEX
- NORDER
- NPR_SS
- DEXYESNO
- CPR_GIF
- CPR_PRN
- OPTION
- CFILE
- CPR_WFW
- PRINT
- Ascending
- Descending8
- SET ORDER TO nINDEX &cORDER
- INDEX ON UPPER(CLUBS)+UPPER(NAME) TO
- FOR CLUBS <> SPACE(10)
- .AND.
- mNAME$UPPER(NAME)
- .AND.
- mSKY_TEL$UPPER(SKY_TEL)
- .AND.
- TYPE=mTYPE
- .AND.
- LON-nFAC<=mLON.AND.mLON<=LON+nFAC
- .AND.
- EW=mEW
- .AND.
- LAT-nFAC<=mLAT.AND.mLAT<=LAT+nFAC
- .AND.
- NS=mNS
- .AND.
- mCLUBS$UPPER(CLUBS)
- .AND.
- mNOTES$UPPER(NOTES)
- SET FILTER TO &cD
- SET FILTER TO &cD
- Press [ESC] to return to main menu...
- cLUN_INDEXf
- CORDER
- NORDER
- CLUN_INDEXNINDEX
- FNFILE
- DEXPLSWAIT
- FNTALK
- _INDEXNAME
- DEXMNAME
- SKY_TEL
- MSKY_TEL
- XTYPE
- MTYPE
- CLUBS
- MCLUBS
- CNOTES
- MNOTES
- LUNLOG
- PRINT1
- PRINT2
- PRINT3
- PRINT4
- CDATAPATH
- NFORM_NDX
- ?? &cPR_DEF
- bESC =.T.
- ?? &cPR_DEF
- ?? &cPR_BON
- Page F
- 80 Column Lunar Object Report
- Date is
- Lunar Object Filter is
- ?? &cPR_BOFF
- Name:
- Sky & Telescope #:
- Type of Object:
- M->TYPE
- Longitude : F
- 99.9999c
- Latitude : F
- 99.9999c
- Clubs:
- Notes:
-
- cPRNf
- * * * Report Interrupted by User * * *
- ?? &cPR_DEF
- Number of Printed Records = F
- CFILE
- NCOUNT
- NPAGE
- NPR_MAX
- EXNRPT_ROW
- NRPT_MAX
- EXCLUN_NAME
- SKY_TEL
- FLD_DES
- CLUBS
- T_ROW
- NOTES
- CGIFPATH
- CPR_GIF
- PRINT_GIF
- THERM
- ?? &cPR_DEF
- bESC =.T.
- ?? &cPR_BON
- Page F
- 132 Column Lunar Object Report
- Date is
- Lunar Object Filter is
- Name Sky & Tel # Type Longitude Latitude Clubs
- ----------------- ----------- ----- ---------- ---------- ----------
- ?? &cPR_BOFF
-
- Notes:
-
- * * * Report Interrupted by User * * *
- ?? &cPR_DEF
- Number of Printed Records = F
- CFILE
- NCOUNT
- NPAGE
- NPR_MAX
- EXNRPT_ROW
- NRPT_MAX
- EXCLUN_NAME
- SKY_TEL
- CLUBS
- T_ROW
- NOTES
- THERM
- SKY_TEL
- LONGITUDE
- LATITUDE
- NOTES
- CLUBS
- bESC =.T.
- Number of Printed Records = F
- CFILE
- NCOUNT
- EXNAME
- SKY_TEL
- XTYPE
- N_NAME
- NOTES
- NNOTES
- XCLUBS
- THERM
- ?? &cPR_DEF
- bESC =.T.
- ?? &cPR_DEF
- ?? &cPR_BON
- Page F
- 80 Column Lunar Object Log
- Date is
- Lunar Object Filter is
- ?? &cPR_BOFF
- Name:
- Sky & Telescope #:
- Type of Object:
- M->TYPE
- Longitude : F
- 99.9999c
- Latitude : F
- 99.9999c
- Clubs:
- Log Date: F
- Log Time:
- Log Date: F
- Log Time:
- Notes:
-
- cPRNf
- * * * Report Interrupted by User * * *
- ?? &cPR_DEF
- Number of Printed Records = F
- CFILE
- NCOUNT
- NPAGE
- NPR_MAX
- EXNRPT_ROW
- NRPT_MAX
- EXCNAME
- CSKY_TEL
- SKY_TEL
- LUNLOG
- XCLUN_NAME
- FLD_DES
- CLUBS
- LOG_DATE
- LOG_TIME
- T_ROW
- NOTES
- CGIFPATH
- CPR_GIF
- PRINT_GIF
- THERM
- PRINT
- PRINT1
- PRINT2
- PRINT3
- PRINT4
- D:\SKY\SAC\
- SACPR4.FXP
- D:\SKY\SAC\SACPR4.PRG
-